#!/bin/sh

# $Id: test-lexer.sh 126 2014-07-20 00:03:21Z alan.watson.f@gmail.com $

cd "$(dirname "$0")"

. functions.sh

TEST_INIT $(basename "$0")

TEST <<"EOF"
()
"a string \\\""
|a vertical-bar symbol \\\||
,@
#;
'
`
,
a-symbol
---
()
"a string \\\""
|a vertical-bar symbol \\\||
,@
#;
'
`
,
a-symbol
EOF

TEST_ERROR <<"EOF"
"an unterminated string
---
scheme-indent: error: while indenting: unterminated string.
EOF

TEST_ERROR <<"EOF"
|an unterminated vertical-bar symbol
---
scheme-indent: error: while indenting: unterminated vertical-bar symbol.
EOF

TEST_ERROR <<"EOF"
(an unbalanced open parenthesis.
---
scheme-indent: error: while indenting: unbalanced open parenthesis.
EOF

